home *** CD-ROM | disk | FTP | other *** search
/ Picasso Un Homme, Une Oeuvre, Une Légende / PICASSO.ISO / data / manimaj.dxr / Internal_46_Sc. Zoom.ls < prev    next >
Encoding:
Text File  |  1996-09-18  |  2.0 KB  |  65 lines
  1. on exitFrame
  2.   global SaveImage, MEnCours, flag, gDel, NomImage, CurrentImage
  3.   if ((SaveImage = -1) and (soundBusy(1) = 0) and (NomImage <> "L30")) or ((NomImage = "L30") and (CurrentImage > 11)) then
  4.     waitfor(40)
  5.     set the castNum of sprite 48 to the number of member "Roll Dummy"
  6.     set the locH of sprite 48 to -10
  7.     set the locV of sprite 48 to -10
  8.     set MEnCours to 0
  9.     set cnum to the number of member ("M" & NomImage & "Z0.JPG") of castLib "zoomMaj"
  10.     set the castNum of sprite 4 to cnum
  11.     set the rect of sprite 4 to rect(43, 14, 498, 469)
  12.     updateStage()
  13.     pause()
  14.   else
  15.     go(the frame)
  16.   end if
  17. end
  18.  
  19. on idle
  20.   global gListeRollover, gNumRubrique, gCurMaj, gCurseurLoupeIn, gCurseurMainUp, NomImage, CurrentImage, SaveImage, NomRep, flag, gDel
  21.   if rollOver(47) then
  22.     cursor(gCurMaj)
  23.   else
  24.     RollManitool()
  25.   end if
  26.   if (SaveImage = -1) and (NomImage <> "L30") then
  27.     exit
  28.   end if
  29.   set cname to "M" & NomImage & "Z" & CurrentImage
  30.   set cnum to the number of member ("M" & NomImage & "Z" & CurrentImage & ".JPG") of castLib "zoomMaj"
  31.   if CurrentImage = 0 then
  32.     set the visible of sprite 4 to 1
  33.     set the visible of sprite 3 to 1
  34.     updateStage()
  35.     puppetSound(1, cast (cname & "S"))
  36.     updateStage()
  37.     set CurrentImage to CurrentImage + 1
  38.   else
  39.     if (soundBusy(1) = 0) or (NomImage = "L30") then
  40.       set flag to not flag
  41.       if NomImage = "L30" then
  42.         waitfor(120)
  43.       else
  44.         waitfor(60)
  45.       end if
  46.       set SaveImage to 0
  47.       if cnum > 0 then
  48.         set the castNum of sprite 4 to cnum
  49.         set the rect of sprite 4 to rect(43, 14, 498, 469)
  50.         set SaveImage to CurrentImage
  51.         updateStage()
  52.         set cname to "M" & NomImage & "Z" & CurrentImage
  53.         if NomImage <> "L30" then
  54.           preLoad(cast (cname & "S"))
  55.           puppetSound(1, cast (cname & "S"))
  56.         end if
  57.       else
  58.         set SaveImage to -1
  59.         updateStage()
  60.       end if
  61.       set CurrentImage to CurrentImage + 1
  62.     end if
  63.   end if
  64. end
  65.